[RPAQQ INIT-COMP (QUOTE
( [COND ((NOT (GETD (QUOTE GETTOPVAL)))
         (/MOVD (QUOTE CAR)
                (QUOTE GETTOPVAL))
         (/MOVD (QUOTE CDR)
                (QUOTE GETPROPLIST))
         [/PUTD (QUOTE SETTOPVAL)
                (QUOTE (LAMBDA (X Y)
                               (CAR (FRPLACA X Y]
         [/PUTD (QUOTE SETPROPLIST)
                (QUOTE (LAMBDA (X Y)
                               (CDR (FRPLACD X Y]
         [/PUTD (QUOTE /SETTOPVAL)
                (QUOTE (LAMBDA (X Y)
                               (CAR (/RPLACA X Y]
         [/PUTD (QUOTE /SETPROPLIST)
                (QUOTE (LAMBDA (X Y)
                               (CDR (/RPLACD X Y]
         (/NCONC LISPXFNS (QUOTE ((SETTOPVAL . /SETTOPVAL)
                                  (SETPROPLIST . /SETPROPLIST]
  [COND ((NOT (GETD (QUOTE GETFILEPTR)))
         (/MOVD (QUOTE SFPTR)
                (QUOTE GETFILEPTR))
         (/PUTD (QUOTE SETFILEPTR)
                (QUOTE (LAMBDA (FILE PTR)
                               (PROG1 PTR (SFPTR FILE PTR]
  (DEFLIST [QUOTE ((GETTOPVAL ((X)
                               (CAR X)))
                   (GETPROPLIST ((X)
                                 (CDR X]
           (QUOTE MACRO))
]
STOP